home *** CD-ROM | disk | FTP | other *** search
/ Publication 4 / Publication_04_19xx_High-Tech_de_Side_A.d64 / joystick .txt < prev    next >
Text File  |  2023-02-26  |  1KB  |  46 lines
  1. basic - tricks
  2. joystick-steuerung
  3.  3 
  4.            DER@FREUDENSTAB\
  5.            der@freudenstab\
  6.  
  7. und siehe{CBM--}da waren zwei analphabeten{CBM--}
  8. die konnten mit der tastatur nix an-
  9. fangen....doch gott erbarmte sich
  10. ihrer lauten wehklagen und  siehe{CBM--}er
  11. sandte ihnen den JOYSTICK !
  12. doch die beiden analphabeten waren
  13. nur der sprache BASIC m@chtig (wie
  14. sie das auch immer gemanagt haben -
  15. wenn sie nicht schreiben konnten).
  16. doch diesmal war es nicht gott{CBM--}der
  17. sich erbarmte{CBM--}sondern die PUBLICATION
  18. brachte ihnen eine routine zur steuer-
  19. ung des freudenstabes in BASIC !
  20. und hier ist die routine (auch f]r
  21. nicht-analphabetisten geeignet) {SHIFT-+}
  22.  
  23. joy =int(log(255.5-(peek(56320)or244))
  24.      /log(2)+2)
  25.  
  26. sorry{CBM--}aber die routine passt nicht in
  27. EINE zeile !
  28.  
  29. nach ansprung dieser zeile erh@lt man
  30. einen wert zwischen eins und sechs
  31. in der variablen JOY !
  32. und das bedeuten die werte {SHIFT-+}
  33.  
  34. 1 ruhestellung (keine bewegung)
  35. 2 nach oben
  36. 3 runter
  37. 4 ab nach linx
  38. 5 nach rechts
  39. 6 feuerknopf !
  40.  
  41. das ganze kann man jetzt per if-then-
  42. schleife abfragen oder aber auch per
  43. on goto bzw. on gosub !
  44.  
  45.                      ZEITGEIST
  46.